"Poke-ing Program"
By George Breadon
ARCADIAN 1, no. 9 (Aug. 18, 1979): 75.


_POKE-ING PROGRAM_ allows you to load machine instructions into the @ string,
which means that you can call several machine language subroutines from inside
the BASIC.  Developed by George Breadon, the program follows along with some
data to be inserted that will call up our old buddy, ARCADIAN (ref.pg. 45)

       5 NT = 0
      10 A = 20180; B=A; FOR K=0 TO 13              INPUT MACHINE INSTRUCTIONS
      20 INPUT @(K); NEXT K                         INTO @ STRING
      30 FOR K = 0 TO 13; CLEAR
      40 CY = 0;PRINT K,@(K)                        EDIT ROUTINE - HIT "STEP"
      50 D = KP; IF D=31 GOTO 80                    KEY (D=57) TO STEP THRU
      60 IF D=57 GOTO 90                            MACHINE INSTRUCTIONS.
      70 GOTO 50                                    HIT ERASE KEY (D=31) TO
      80 INPUT "CHANGE=",L;@(K)=L                   CHANGE MACHINE INSTR.
      90 NEXT K
     100 A-B; FOR K= 0 TO 13                        POKE @STRING INTO MEMORY
     110 %(A)=@(K); A=A+2: NEXT K
     120 IF @(20) = 8 GOTO 30                       HIT "GOTO" KEY TO BRANCH
     130 C=20180; GOSUB 160                         BACK T0 EDIT ROUTINE AT
     140 C=20190; GOSUB 160                         ANY TIME
     150 GOTO 120
     160 CLEAR; CALL (C); RETURN                    INITIALIZE STARTING ADDRESS
                                                    FOR SUBROUTINE 52
DATA to be inserted: This is all in machine
                     level code.                    CALL SUBROUTINE 52
   @(0) =    -43             @(7) =   27672
     1     12341               8      20200
     2     19480               9     -13871         @ 0 thru 4 go into 20180
     3      3164 Or 3159      10      21057         while @ 5 thru 13 go into
     4    -13871              11      16707         20190, two at a time
     5       -43              12      18756
     6        53              13      20033
